Salmon leaping at Willamette Falls from NOAA’s Historic Fisheries Collection. Unknown photographer, 27 June 1950.
Our overview goes here; includes
Hydroelectric power represents an important renewable and low-emissions energy source, but the construction and development of the water source that these plants can require sometimes threatens resident fish populations. Fishways have been constructed and updated over time at Willamette Falls to aid the passage of salmon and steelhead runs over the falls. Daily fish counts are monitored to ensure that migration of these fish populations continues to be unhindered by the power plant and the falls. This project summarizes findings from studying monitoring data from 2001 to 2010.
Data were shared by and accessed from Columbia River DART:
Columbia River DART (Data Access in Real Time), Columbia Basin Research, University of Washington
Accessed Feb 1, 2021 at http://www.cbr.washington.edu/dart/query/adult_graph_text.
# wanted to put in a map manually here, but I was having trouble with my API (coordinates 45.351074, -122.619110)willamette_salmon <- read_csv(here("data", "willamette_fish_passage.csv")) %>% # read in data
clean_names() %>% # names in tidy format
select(date, coho, jack_coho, steelhead) %>% # select desired species
mutate(date = mdy(date))annual <- willamette_salmon %>%
as_tsibble(key = NULL, index = date) %>% #Not sure if it's already a tsibble?
index_by(yr = ~year(.)) %>%
summarize(annual_coho = sum(coho, na.rm = TRUE),
annual_jack_coho = sum(jack_coho, na.rm = TRUE),
annual_steelhead = sum(steelhead, na.rm = TRUE)
)
ggplot(data = annual) +
geom_line(aes(x=yr, y=annual_coho), color = "blue") +
geom_line(aes(x=yr, y=annual_jack_coho), color = "green") +
geom_line(aes(x=yr, y=annual_steelhead), color = "red")